home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / bbs_add1.lha / BBS-Add.REXX < prev    next >
OS/2 REXX Batch file  |  1994-09-08  |  937b  |  51 lines
  1. /* BBS-Add v1.0 */
  2.  
  3. options results
  4. parse arg file1
  5.  
  6. path='Systext:';tr='transmit';cr='center';pr='prompt'
  7.  
  8. if ~exists(path||file1) then do
  9. call open(1,path||file1)
  10. signal QUESTS
  11. end
  12.  
  13. call open(1,path||file1)
  14.  
  15. do until eof(1)
  16. foo=readln(1)
  17. end
  18.  
  19. QUESTS:
  20. CLS
  21. pr 20 normal '"c2}BBS-Name     :c4} "'
  22. name=result
  23. pr 18 normal '"c2}PhoneNr      :c4} "'
  24. phone=result
  25. pr 15 normal '"c2}Speed        :c4} "'
  26. speed=result
  27. pr 15 normal '"c2}BoardProgram :c4} "'
  28. Board=result
  29. line = right(name,20)||right(phone,19)||right(speed,16)||right(Board,16)
  30. tri
  31. tr
  32. tr center(line,79)
  33. OA:
  34. tr
  35. pr 1 yesno '"c5} Is the above correct ? [c2Yesc5] "'
  36. ans=result
  37. if ans='Yes' then signal OK
  38. if ans='No' then signal QUESTS
  39. if ans='###PANIC' then call SLUTA
  40. signal OA
  41.  
  42. OK:
  43. call writeln(1,center(line,79))
  44. call close(1)
  45.  
  46. SLUTA:
  47. tr
  48. tr center("c5Adding your board to the Logout!!",82)
  49. tr center('c7z4BBS-Add v1.0 (C)1994 by Wolverine / DMIc3z0 ',91)
  50. exit
  51.